home *** CD-ROM | disk | FTP | other *** search
- 10 fullw 2:clearw 2:gotoxy 15,0:close
- 20 ? "PRINTMASTER FILE MERGE by TCB":?
- 30 ? "Graphics from the input file will be added to the output file."
- 40 ? "The output file will be created if it does not exist.":?
- 50 ? " Input library:";:input inlib$
- 60 ? "Output library:";:input outlib$:?
- 70 ? "select (A)ll or (S)ome graphics? ";
- 80 select$=chr$(inp(2))
- 90 if select$="a" or select$="A" then select$="a":goto 110
- 100 if select$="s" or select$="S" then select$="s":goto 110
- 105 goto 80
- 110 ? select$:insdr$=inlib$+".sdr":inshp$=inlib$+".shp"
- 120 open "R",#1,insdr$,16
- 125 field #1,16 as ingrname$
- 130 open "R",#2,inshp$,578
- 140 field #2,128 as i1$,128 as i2$,128 as i3$,128 as i4$,66 as i5$
- 150 outsdr$=outlib$+".sdr":outshp$=outlib$+".shp"
- 160 open "R",#3,outsdr$,16
- 165 field #3,16 as outgrname$
- 170 open "R",#4,outshp$,578
- 180 field #4,128 as o1$,128 as o2$,128 as o3$,128 as o4$,66 as o5$
- 190 records=lof(1):outcntr=lof(3)
- 200 for incntr=1 to records
- 210 get #1,incntr
- 220 if select$="a" then ? "Adding ";ingrname$;" to ";outlib$:goto 270
- 230 ? "Add ";ingrname$;" to ";outlib$;" ?";
- 240 pick$=chr$(inp(2)):if pick$="y" or pick$="Y" then ? pick$:goto 270
- 250 if pick$="n" or pick$="N" then ? pick$:goto 310
- 260 goto 240
- 270 lset outgrname$=ingrname$
- 275 outcntr=outcntr+1:put #3,outcntr
- 280 get #2,incntr
- 290 lset o1$=i1$:lset o2$=i2$:lset o3$=i3$:lset o4$=i4$:lset o5$=i5$
- 300 put #4,outcntr
- 310 next incntr
- 320 close:end
- əəəəəəəəəəəəəəəəəəəəə